/* Make Key Charts for the Climate Paper */

clear all

cd "C:\Users\valen909\Dropbox\Hoover\America1Room\Climate\data\Full_With_FollowUp"

/* This Sample only has data from control and treament group members
who answer survey questions at T1, T2, AND T3 */
use climate_data_foranalyses_27items.dta

/* Change to output directory */
cd "C:\Users\valen909\Dropbox\Hoover\America1Room\Climate\output\for_paper\27item_PBS\tif_format_charts"

binscatter ideology_diff1_2 ideology_score1, n(20) by(delegate) linetype(none) ///
xlabel(0(1)10) xmtick(0(0.5)10) ///
ylabel(-2(0.5)2) ymtick(-2(0.5)2) ///
title("Policy-Based Score Changes (T2 - T1)") ///
xtitle("Policy-Based Score at T1 (0 - Most Liberal, 10 - Most Conservative)") ///
ytitle("") ///
legend(label(1 "Control Group") label(2 "Participant Group")) ///
msymbols("O" "T") ///
yline(0, lcolor(black) lpattern(dash)) ///
color(navy orange) ///
note("Note: Policy-Based Score is constructed for each individual based on responses to 27 questions" ///
"identified as the most polarizing: 15%+ of each party are at opposite extremes (0 or 10).") ///
graphregion(color(white)) bgcolor(white)
graph export "Figure1.tif", replace

reg ideology_diff1_2 c.ideology_score1##i.delegate

binscatter ideology_diff1_2 ideology_score1 if delegate==0, n(20) by(party) linetype(none) ///
xlabel(0(1)10) xmtick(0(0.5)10) ///
ylabel(-2(0.5)2) ymtick(-2(0.5)2) ///
title("Policy-Based Score Changes (T2 - T1)" ///
"Control Group") ///
xtitle("Policy-Based Score at T1 (0 - Most Liberal, 10 - Most Conservative)") ///
ytitle("") ///
legend(label(1 "Democrats") label(2 "Republicans") label(3 "Independents") row(1)) ///
msymbols("O" "T" "S") ///
yline(0, lcolor(black) lpattern(dash)) ///
color(navy orange) ///
note("Note: Policy-Based Score is constructed for each individual based on responses to 27 questions" ///
"identified as the most polarizing: 15%+ of each party are at opposite extremes (0 or 10).") ///
graphregion(color(white)) bgcolor(white)
graph export "Figure2.tif", replace

binscatter ideology_diff1_2 ideology_score1 if delegate==1, n(20) by(party) linetype(none) ///
xlabel(0(1)10) xmtick(0(0.5)10) ///
ylabel(-2(0.5)2) ymtick(-2(0.5)2) ///
title("Policy-Based Score Changes (T2 - T1)" ///
"Participant Group") ///
xtitle("Policy-Based Score at T1 (0 - Most Liberal, 10 - Most Conservative)") ///
ytitle("") ///
legend(label(1 "Democrats") label(2 "Republicans") label(3 "Independents") row(1)) ///
msymbols("O" "T" "S") ///
yline(0, lcolor(black) lpattern(dash)) ///
color(navy orange) ///
note("Note: Policy-Based Score is constructed for each individual based on responses to 27 questions" ///
"identified as the most polarizing: 15%+ of each party are at opposite extremes (0 or 10).") ///
graphregion(color(white)) bgcolor(white)
graph export "Figure3.tif", replace

/* Belief */
binscatter belief_diff1_2 ideology_score1, n(20) by(delegate) linetype(none) ///
xlabel(0(1)10) xmtick(0(0.5)10) ///
ylabel(-2(0.5)2) ymtick(-2(0.5)2) ///
title("Climate Belief Score Changes (T2 - T1)") ///
xtitle("Policy-Based Score at T1 (0 - Most Liberal, 10 - Most Conservative)") ///
ytitle("") ///
legend(label(1 "Control Group") label(2 "Participant Group")) ///
msymbols("O" "T") ///
yline(0, lcolor(black) lpattern(dash)) ///
color(navy orange) ///
note("Note: Policy-Based Score is constructed for each individual based on responses to 27 questions" ///
"identified as the most polarizing. Climate Belief Score is constructed using 4 questions on one's" ///
"level of belief about climate change being a problem (10 is highest level of agreement with statements).") ///
graphregion(color(white)) bgcolor(white)
graph export "Figure4.tif", replace

reg belief_diff1_2 c.ideology_score1##i.delegate

/* Worry */
binscatter worry_diff1_2 ideology_score1, n(20) by(delegate) linetype(none) ///
xlabel(0(1)10) xmtick(0(0.5)10) ///
ylabel(-2(0.5)2) ymtick(-2(0.5)2) ///
title("Climate Worry Score Changes (T2 - T1)") ///
xtitle("Policy-Based Score at T1 (0 - Most Liberal, 10 - Most Conservative)") ///
ytitle("") ///
legend(label(1 "Control Group") label(2 "Participant Group")) ///
msymbols("O" "T") ///
yline(0, lcolor(black) lpattern(dash)) ///
color(navy orange) ///
note("Note: Policy-Based Score is constructed for each individual based on responses to 27 questions" ///
"identified as the most polarizing. Climate Worry Score is constructed using 3 questions on one's worry" ///
"about the current condition of the natural environment (10 is 'as worried as can be').") ///
graphregion(color(white)) bgcolor(white)
graph export "Figure5.tif", replace

reg worry_diff1_2 c.ideology_score1##i.delegate
